home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
util
/
rexx
/
fwfooter.lha
/
Footer.arexx
next >
Wrap
Text File
|
1995-09-13
|
2KB
|
103 lines
/* ------------------------------------------ */
/* Final Writer Arexx Macro - Manual Footnote */
/* Written by Alf Inge Wang 12.sept.1995 */
/* (C) Wang Computer Software */
/* If you have some question, suggestions etc */
/* mail me: alfw@idt.unit.no */
/* ------------------------------------------ */
Options Results
RequestText '"Enter the footer number" "Number" "1"'
FNumb=Result
RequestText '"Enter the number of extra footnote lines" "Number" "0"'
Lines=Result
ShiftDown
CtrlDown
Cursor Left
Copy /* Copy the highligted word */
ShiftUp
CtrlUp
Cursor Left
Cursor Right
Position SuperScript
IF FNumb==1 then type "1"
IF FNumb==2 then type "2"
IF FNumb==3 then type "3"
IF FNumb==4 then type "4"
IF FNumb==5 then type "5"
IF FNumb==6 then type "6"
IF FNumb==7 then type "7"
IF FNumb==8 then type "8"
IF FNumb==9 then type "9"
IF FNumb==10 then type "10"
Position Normal
CtrlDown
Cursor Right
CtrlUp
AltUp
/* Footnote 1 */
IF FNumb==1 then NewParagraph
IF FNumb==1 then NewParagraph
IF FNumb==1 then Fontsize 9
IF FNumb==1 then Style Underline
IF FNumb==1 then Type " "
IF FNumb==1 then style normal
/* Footnote 2 */
If FNumb==2 then AltDown
IF FNumb==2 then CtrlDown
IF FNumb==2 then Cursor Right
IF FNumb==2 then AltUp
IF FNumb==2 then CtrlUp
/* Footnote >2 */
IF FNumb>2 then Do i=3 to FNumb
Cursor Down
End
IF Lines>0 then Do i=0 to Lines
Cursor Down
End
IF FNumb>2 then AltDown
IF FNumb>2 then CtrlDown
IF FNumb>2 then Cursor Right
IF FNumb>2 then AltUp
IF FNumb>2 then CtrlUp
FontSize 9
Style Normal
NewParagraph
Position SuperScript
IF FNumb=1 then type "1"
IF FNumb=2 then type "2"
IF FNumb=3 then type "3"
IF FNumb=4 then type "4"
IF FNumb=5 then type "5"
IF FNumb=6 then type "6"
IF FNumb=7 then type "7"
IF FNumb=8 then type "8"
IF FNumb=9 then type "9"
IF FNumb=10 then type "10"
Position Normal
type " "
Paste
ShiftDown
CtrlDown
AltDown
Cursor Left
FontSize 9 /* The font of the footer */
Font Helvetica /* The size of the footer font */
ShiftUp
Cursor Right
CtrlUp
AltUp
type " "